home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mobiclic 46
/
Mobiclic46.iso
/
pc
/
DATA
/
SHARED
/
COMMUNS.CST
/
00004_Script_gestion du son
< prev
next >
Wrap
Text File
|
2002-07-12
|
2KB
|
74 lines
-------------------------------------------------------------------
-------------------------- GESTION DU SON -------------------------
-------------------------------------------------------------------
global dernierSon -- nom du dernier son jouΘ
global nivSon -- liste α 3 termes contenant le niveau sonore de chaque piste
global volumeOn -- indique si la fenΩtre de rΘglage du volume est active
global menusActifs -- indique si les menus sont actifs
global ouvreVolume --
-- lecture d'un son
on joueSon nom, n
if the paramCount = 1 then
set n = 3
end if
if voidP(nivSon)=1 then
set nivSon=[255,255,255]
end if
-- ajout Θventuel de "sons:"
if char 1 to 9 of nom <> "sons" then
if offset(":", nom) = 0 then
set nom = "sons:" & nom
end if
end if
set dernierSon=nom
--
put the pathName & nomDos(nom) & ".aif" into nom
put " Son jouΘ : " & dernierSon
sound playFile n, nom
-- rΘglage du niveau des autres canaux
repeat with i=1 to 3
if i<>n and getAt(nivSon,i)>102 then
set the volume of sound i to 110
end if
end repeat
end joueSon
-- rΘglage du volume
on niveauSon
if voidP(nivson) = 1 then
set nivson=[255,255,255]
end if
repeat with i=1 to 3
set the volume of sound i to getAt(nivSon,i)
end repeat
end nivSon
-- attendre la fin d'un son
on attendreSon p
repeat while soundBusy(p)
updateStage
temporise(0.1)
end repeat
end
-- dΘsactivation des pistes audio
on coupeSon
repeat with i=1 to the paramCount
if value(param(i))<>0 then
puppetSound (param(i)),0
else
listeSons param(i)
end if
end repeat
end coupeSon
on listeSons chaine
set n=offset(">", chaine)
set n1=value(char 1 to n-1 of chaine)
set n2=value(char n+1 to length(chaine) of chaine)
repeat with j=n1 to n2
puppetSound j,0
end repeat
end listeSons